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ABSTRACT 


Tins  technical  report  discusses  the  Line  Access  Test  System  (LATS)  which  can  perform  matrix  switch- 
ing operations  on  four  wire  circuits.  Each  circuit  accessed  may  be  tested  for  D.C.  voltage,  resis- 
tance, A.C.  voltage  and  capacitance.  A microprocessor  control  implementation  is  also  included  with 
the  necessary  programs  for  operation. 
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RELAYS  IN  ONE  CIRCUIT  IN  MATRIX  UNIT 


1.0  BACKGROUND. 


1.1  The  Line  Access  Test  System  (LATS)  was  a joint  Air  Force  Academy/1842  EEG  project  accomplished 
under  the  cadet  summer  research  program  in  1978.  Cadet  First  Class  John  McCormack  undertook  the  LATS 
project  and  completed  all  of  the  requirements  in  the  six  week  span  of  the  program. 

1.2  To  date,  the  LATS  interface  is  complete  in  both  hardware  and  software  and  has  been  put  into  service  for 
specific  test  applications. 

2.0  TECHNICAL  DISCUSSION. 

2.1  LATS  Description. 

2.1.1  The  Line  Access  Test  System  (LATS)  is  an  array  of  relays  and  supporting  circuitry  that  allows  a user  to 
access  individual  four  wire  circuits  (common  in  telephone  networks)  for  testing.  LATS  is  composed  of  a control 
panel  and  up  to  60  matrix  units  or  bays.  Each  bay  can  address  up  to  80  four-wire  circuits  through  opening 
contacts  on  the  relays.  The  address  is  supplied  by  the  control  panel.  Each  circuit  is  passed  through  two  relays, 
a km  and  a kb  relay  (Figure  1).  Using  these  relays,  a circuit  may  be  either  monitored  or  broken.  When  a circuit 
is  monitored,  the  input  is  shunted  through  the  km  relay  onto  the  Z (west)  data  bus  without  interrupting  the 
information  flow.  When  a circuit  is  broken,  both  the  km  and  kb  relays  are  opened,  putting  both  the  east  and 
west  wires  onto  the  bus,  east  on  the  A bus  and  west  on  the  Z bus.  The  information  flow  is  interrupted  and  the 
user  may  observe  the  flow  in  either  direction. 

2.1.2  The  control  unit  has  three  primary  functions:  (1)  To  address  a particular  circuit,  (2)  To  access  a 
particular  pair  of  wires  in  that  circuit,  and  (3)  To  measure  various  parameters  across  those  wires.  To  access  a 
circuit,  the  LATS  sends  a 16-bit  BCD  address  on  the  control  lines.  The  first  eight  bits  consist  of  a matrix  unit 
address,  while  the  next  eight  are  composed  of  a circuit  number  from  0 to  79.  The  circuit,  when  monitored  or 
broken,  ties  four  lines  into  the  control  unit.  The  control  panel  can  then  choose  any  combination  of  these  as  a 
pair,  or  compare  a particular  wire  to  ground.  Once  this  pair  has  been  accessed,  the  control  unit  can  test  four 
parameters:  D.C.  voltage,  resistance,  A.C.  voltage,  and  capacitance.  The  scales  of  these  measurements  are  fixed, 
rather  than  floating,  so  that  an  off-scale  or  overflow  reading  causes  the  display  to  show  "OF". 

2.1.3  LATS  is  equipped  with  external  jacks  for  attaching  reliable  measuring  equipment  to  the  accessed 
circuit.  Eight  lines  (R,  T,  Rl,  Tl,  Rz,  Tz,  Rlz,  Tlz)  are  brought  out  so  that  the  pair  selected  is  available  for 
measurements  by  external  equipment. 

2.1.4  The  control  panel  is  equipped  with  a self  test  capability.  In  addition,  there  are  two  indicator  lights. 
One  indicates  that  the  circuit  was  not  accessed;  this  is  the  Fault  (FLT)  signal,  which  usually  means  that  the 
selected  bay  was  not  present.  The  other  indicator  is  the  MIC  (micro  in  control)  which  indicates  that  the  LATS 
is  being  controlled  by  a computer.  The  interface  consists  of  three  50-pin  connectors  on  the  back  panel  of  the 
control  unit  connected  to  five  16-pin  DIP  ports  on  the  Edumicro. 


Z BUS  TO  CONTROL  PANEL 


A BUS  TO  CONTROL  PANEL 


MONITOR  OR  BREAK 


BREAK 


KM  RELAY 


When  a break  command  is  given,  both  relays  switch  their 
information  to  the  two  data  buses.  When  a monitor  is 
given,  only  the  KM  relay  is  switched  causing  Z to  go 
onto  the  data  bus;  therefore,  the  circuit  is  not 
interrupted. 


Figure  1.  Relays  in  One  Circuit  in  Matrix  Unit 


2.2 


LATS  Interface. 


2.2.1  Edumicro  is  an  Intel  8080A  Based  Micro  Processor  system  developed  by  USAFA/DFEE.  The  basic 
Edumicro  has  onboard  2k  of  RAM  (Random  Access  Memory),  8 input  and  8 output  ports,  lk  of  ROM  (Read  Only 
Memory)  monitor  and  room  for  lk  of  user  ROM.  The  user  ROM  is  filled  by  the  LATS  monitor  when  the 
Edmuicro  is  used  to  control  the  LATS. 

2.2.2  The  connections  between  the  LATS  and  Edumicro  are  a straightforward  process.  Using  the  LATS 
interface  specification,  the  control  bits  are  grouped  into  eight-bit  bytes  which  can  be  processed  by  the  INTEL 
8080A.  The  MIC  is  controlled  by  a toggle  switch. 

2.3  LATS  SOFTWARE. 


2.3.1  The  approach  to  the  software  was  to  determine  exactly  what  the  LATS  was  capable  of  doing  and  to 
supply  the  necessary  control  sequence  to  accomplish  it.  For  example,  to  call  up  a four  wire  circuit,  the 
previous  circuit  must  first  be  cleared  by  outputting  the  CCSD  (clear  circuit  select  data)  bit.  Next,  the  circuit 
must  be  addressed.  The  address  is  sixteen  BCD  bits,  an  eight-bit  bay  (or  Matrix  unit)  address,  and  an  eight-bit 
circuit  address.  The  format  for  transferring  this  information  is  in  a sequence  of  four  4-bit  words  (CKB)  strobed 
by  a fifth  line  (CKST)  for  a specified  time  interval. 

2.3.2  The  next  step  in  accessing  a circuit  is  making  sure  that  the  circuit  that  was  supposed  to  be  called  was 
the  one  actually  called.  This  is  done  by  inputting  BTCK  (bay  tens  check),  BUCK  (bay  units  check),  OTCK 

(circuit  tens  check),  and  OUCK  (circuit  units  check),  and  comparing  the  input  to  what  was  put  out.  The  circuit 
must  then  be  broken  or  monitored  by  outputting  the  appropriate  bit,  delaying,  and  inputting  the  check  bit. 
Under  micro  control,  the  break  and  monitor  set  bits  do  not  clear  automatically;  so  once  set,  these  bits  need  not 
be  reset  or  regenerated  for  every  circuit.  The  user  must  input  and  check  the  FLT  bit  (correspond)  g to  the 
indicator  light)  for  an  unaccessed  circuit. 


2.3.3  Now  that  a circuit  has  been  accessed,  it  may  be  checked  for  various  conditions  by  the  LATS;  but  first, 
the  user  needs  to  select  a pair  of  wires  by  outputting  the  MTC  (meter  configuration)  bits  and  inputting  the 
MTCK  (meter  configuration  check)  bits  for  a check.  Once  on  a pair  of  wires,  the  user  may  select  a particular 
function  to  check,  such  as  D.  C.  potential,  by  putting  the  proper  code  on  the  RFB  lines  and  strobing  the 
range/function  information  with  RFS  (range-function  strobe).  Next,  RFN  must  be  inputted  and  checked  to 
insure  that  the  information  put  out  was  the  information  received. 

2.3.4  To  read  the  meter,  the  meter  must  first  be  turned  on  (MTON)  and  checked  for  being  on  (MTRK).  Then 
the  user  must  start  the  reading  (MST)  and  wait  for  the  EOC  (end  of  conversion)  input  to  signal  that  the  reading 
is  complete.  The  user  must  check  the  OVR  bit  (comparable  to  the  "OF",  overflow,  display)  to  insure  that  the 
reading  was  within  the  range  selected.  If  it  was  not  within  range,  the  range  must  be  changed. 

2.3.5  The  computer  is  capable  of  checking  all  of  the  circuits  for  all  parameters  without  the  operator  having 
to  key  it;  so  the  software  counts.  It  counts  through  all  of  the  circuit  functions  in  all  of  the  bays.  It  also 
performs  a zero  test  for  proper  meter  operation  and  a grounding  test  for  proper  relay  operation;  this  process  is 
explained  in  Appendix  A. 
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2.3.6  Perhaps  the  user  may  not  have  sixty  bays  present,  or  he  may  only  want  to  test  ten  circuits  instead  of 
eighty.  The  software  then  compensates.  The  program  expects  several  user-keyed  inputs:  the  lower  limit  and 
upper  limit  of  numbered  bays  to  be  tested;  and,  if  only  one  bay  is  being  tested,  the  lower  and  upper  limits  of 
circuits  within  that  bay.  The  user  also  determines  whether  to  break  or  monitor  alt  circuits  and  whether  or  not 
he  wishes  to  run  a grounding  test  to  check  relay  operation. 

2.3.7  Because  of  the  length  of  the  LATS  words  (four-bits  and  the  abundance  of  single-bit  instructions)  the 
Edumicro  output  information  was  combined  into  usable  eight-bit  status  words  and  saved  in  memory.  Status 
words  allow  the  program  to  change  a bit  of  output  and  remember  the  change  every  time  the  output  port  is  used. 
In  addition  to  status  words,  there  is  also  a series  of  flag  words;  one  to  remember  whether  to  break  or  monitor 
and  another  to  signal  when  all  testing  has  been  done.  If  the  user  wants  to  count  circuits  after  ground  testing, 
the  done  flag  (DNFLG)  must  be  reset. 

2.3.8  The  program  contains  an  error  message  routine  which  displays  a part  cular  one  byte  message  which  will 
indicate  either  FLT,  overflow,  transfer  error,  or  an  unacceptable  reading  of  a grounded  input.  After  a key  is 
depressed,  the  display  will  tell  the  user  where  the  error  occurred.  The  user  is  then  given  the  option  of  keying  in 
an  address  and  resuming  calculations  at  that  location. 

2.3.9  The  monitor  is  flexible  enough  for  a user  to  access  one  circuit  without  counting  to  the  next  circuit,  to 
access  a single  function  or  a single  pair  without  scanning,  or  to  use  the  counting  routines  and  check  every 
possible  combination. 


APPENDIX  A 


LATS  CONTROLLER 


SOURCE  LINE 


NAM  LOTS  CONTROLLER 


LOTS  I 


w THIS  PROGRAM  IS  DESIGNED  TO  CONTROL  THE  -ATS  USING 

* THE  EDUMICRO  COMPUTER.  IT  INITIALIZES  THE  SYSTEM 

* BY  STORING  THE  VALUES  OF  THE  DESIRED  BAYS  AND 

* CIRCUITS  TO  BE  TESTED.  AS  WELL  AS  ZERO  TESTING  THE 

* UNIT.  IT  IS  FLEXIBLE  FOR  ANY  FURTHER  TESTING. 

* CONTAINING  SUBROUTINES  FOR  CONFIGURING  AND  READING 

* THE  LATS 

* VARIABLE  LIST: 

* NAME  CONTENTS  ASSIGNMENT 

* STPNTR  INITIAL  VALUE  STACK  POINTER  0CDF 

* BAY  0CE0 

* TPBAY  0CE1 

* CKT  0CE2 

* TPCKT  0CE3 

* MOT  METER  OUTPUT  0CE4 

* PNTR  POINTER  TO  FUNCTION  TABLE  0CE5 

* - (2  BYTE)  0CE6 

* EC  ERROR  COUNT  0CE7 

* STS4A  MTC. CKB  0CE8 

* STS4  CKST. MON. CCDS. EXM.RFB  0CE9 

* STS5  AZ.MTRK.MT0N.8RK.RFS.MST.MTZ  0CEA 

* BRK I BREAK. MON  I TOR  FLAG  0CEB 

* VAC  RANGE/FUNCTION  TABLE  0CEC 

* VDC  0CED 

* RES  0CEE 

* CAPA  0CEF 

* DNFLG  DONE  FLAG  OCF0 

* DSPLA  KEYBOARD  DISPLAY  LSB  0CF1 

* DSPMS  KEYBOARD  DISPLAY  MSB  0CF2 

* INPUT  PORT  ASSIGNMENTS: 

* 0 KEYBOARD  KEYS  7-0 

* 01  KEYBOARD  KEYS  F~8 

* 03  MRVK.MTRK.BRKK.EOC.AZK. 

* 02  MSD.OVR. POL. MONK, FLT. 

* 05  MTOT, MTOU 

* 04  RGFN.MTCK 

* 07  BTCK. BUCK 

* 06  OTCK.OUCK 

* OUTPUT  PORT  ASSIGNMENTS: 

* 00  DISPLAY  VALUES 

* 01  DISPLAY  POSITIONS 

* 05  AZ. .MTRV, MTON.BRK.RFS.MST.MTZ 

* 07  MTZ.CKB 

* 06  CKST. MON. CCSD. EXM.RFB 

* STACK  SPACE  NEEDED:  16  BYTES 

* MEMORY  USED:  0CD0-0CF2 


AFCS  6080  ASSEMBLER 


LATS  CONTROLLER 


SOURCE  LINE 


ALGORITHM  SOURCE:  C1C  JOHN  B.  MCCORMACK 
USAFA.CO  60840 

PERM  ADDRESS:  116  MILBURN  LN 

E. HILLS, NY  1157? 
(516)  621-1327 

SOME  OF  THE  SOFTUARE  UAS  BORROWED  FROM 
THE  EDUMICRO  MONITOR  URITTEN  FOR  USAFA/DFEE 
(7  APRIL  78)  BY  ALAN  J.  LARSON. 

URITTEN:  JULY. 1978 


ORG  '0400 
STPTR  EQU  '0CDF 
BAY  EQU  '0CE0 
TPBAY  EQU  ' 0CE 1 
CKT  EQU  ' 0CE2 
TPCKT  EQU  ' 0CE3 
MOT  EQU  ' 0CE4 
PNTR  EQU  '0CE5 
EC  EQU  ' 0CE7 
STS4A  EQU  ' 0CE8 
STS4  EQU  ' 0CE9 
STS5  EQU  ' 0CEA 
BRK I EQU  '0CEB 
VAC  EQU  '0CEC 
VDC  EQU  '0CED 
RES  EQU  '0CEE 
CAPA  EQU  '0CEF 
DNFLG  EQU  '0CF0 
DSPLA  EQU  ' 0CF 1 
DSPMS  EQU  ' 0CF2 
DN  EQU  ' F0 


72 

73 

74 

75 

76 

77 

78 

79 
00 
8 1 
82 

83 

84 

85 

86 

87 

88 
09 

90  0400  31  DF  0C 

91  0403  21  EC  0C 

92  0406  22  E5  0C 

93  8409  21  E7  0C 

54  840C  36  00 

45  23 

36 

97  040F  36  00 

96  0411  23 

99  0412  36  BD 

100  0414  23 


TELLS  PNTR  UHERE  END  OF  TABLE 
IS 


* PRESETS  ALL  STATUS  REGISTERS.  READS  IN  BAYS  AND 

* CIRCUITS  TO  BE  TESTED  FROM  KEYBOARD. DEC  IS  ION  TO 

* MONITOR,  OR  BREAK.  AND  ZERO  TESTS  THE  LATS  UNIT. 

*****^* *)(oM<****>M<>MoMt*!Mc*** 

IN  IT  LXI  SP, STPTR 
LXI  H, VAC 

SHLD  PNTR  SET  PNTR  TO  VAC 

LXI  H, EC  SET  EC  TO  ZERO 

MVI  M. '00 

INX  H ADS^ANCE  MEMORY  TO  SET 

* OTHER  STATUS  UORDS 

MVI  M. '00  STS4A,  MTC  AND  CKB 

INX  H STS4. CKST ( 1 ) . MON (0) 

MVI  M. 'BD  CCSD ( 1 ) . EXM< 1 ) . AND  RFB(D) 

INX  H STS5. AZ( 1 ) . MTRV(0) . MTONC0) 


AFC  - 8300  ASSEMBLER 


LATS  CONTROLLER 
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LINE 

LOC 

B 1 

B2 

B3 

SOURCE  LINE 

101 

0415 

36 

8F 

MVI  M. '8F 

BRK (0) . RFS Cl).MST(l). MTZ  Cl) 

102 

0417 

23 

I NX  H 

SKIP  A PLACE  IN  MEMORY  FOR 

103 

0413 

23 

I NX  H 

NEXT  4 LOCATIONS. VAC. VDC 

104 

0419 

36 

FD 

MVI  M. 'FD 

RES  AND  CAPA  ARE  A TABLE 

10b 

0418 

23 

I NX  H 

OF  RANGE  FUNCTIONS  THAT 

106 

041C 

36 

FB 

MVI  M. 'FB 

BE  POINTED  TO  BY  THE 

107 

04  IE 

23 

INX  H 

POINTER.  AND  SCANNED  IN 

108 

041F 

36 

F6 

MVI  M. ‘F6 

THE  FNSCN  SUBROUTINE 

109 

0421 

23 

INX  H 

1 10 

0422 

36 

F2 

MVI  M, ' F2 

1 1 : 

0424 

23 

INX  H 

SET  DNFLG  TO  NOT  ZERO 

1 12 

0425 

36 

FF 

MVI  M, 'FF 

: 13 

0427 

CD 

34 

04 

CALL  INBAY 

USER  DETERMINES  THE  SCOPE 

1 14 

042A 

CD 

C3 

37 

CALL  RD2A 

KEYIN  0 FOR  BREAK. 

1 15 

042D 

32 

E8 

0C 

STA  BRK 1 

BREAK  FLAG  STATUS  WORD 

1 16 

0430 

CD 

60 

04 

CALL  ZTEST 

CHECK  l"ETER  OPERATION 

1 17 

0433 

C9 

RET 

* INBAY  READS  IN  UPPER  AND  LOUER  LIMITS  OF  BAYS  TO 

* BE  TESTED  AND  STORES  IN  TUO  STATUS  UORDS  IN  RAM. 

* IF  ONLY  TESTING  IN  ONE  BAY,  IT  ALSO  INPUTS  THE 

* DESIRED  CIRCUITS  TO  BE  TESTED.  IF  MORE  THAN  ONE 

* BAY  HAS  BEEN  ENTERED.  A DEFAULT  VALUE  OF  80 

* CIRCUITS  IS  USED. 

* THESE  INPUTS  SHOULD  BE  BCD. 


127 

0434 

CD 

C3 

07 

INBAY 

CALL  RD2A 

READ  IN  LOUER  BOUND  OF  BAYS 

ize 

0437 

32 

E0 

0C 

T 

STA  BAY 

SAVE  IN  STATUS  UORD  BAY 

129 

043A 

CD 

C3 

07 

CALL  RD2A 

UPPER  BOUND  READ  IN 

136 

043D 

32 

El 

0C 

STA  TPBAY 

SAVE  IN  STATUS  UORD  TPBAY 

151 

0440 

47 

MOV  B.A 

132 

0441 

3A 

E0 

0C 

LDA  BAY 

FETCH  BAY 

155 

0444 

88 

CMP  B 

134 

0445 

CA 

53 

04 

JZ  INCKT 

IF  TESTING  UITH  A SINGLE 

135 

* 

BAY,  DECIDE  UHICH  CIRCUITS 

135 

0448 

3E 

00 

MVI  A. '00 

IF  MORE  THAN  1 BAY.  USE  THE 

137 

044A 

32 

E2 

0C 

STA  CKT 

DEFAULT  VALUES. 00-79 

138 

044D 

3E 

79 

DFCKT 

MVI  A. '79 

DEFAULT  FOR  TPCKT  OF  79 

139 

044F 

32 

E3 

0C 

STA  TPCKT 

140 

0452 

C9 

RET 

RETURN  TO  INIT 

141 

0453 

CD 

C3 

07 

INCKT 

CALL  RD2A 

READ  IN  LOUER  BOUND  OF  CIRCUI 

14? 

0456 

32 

E2 

0C 

STA  CKT 

SAVE  IN  STATUS  UORD  CKT 

1 4J 

0459 

CD 

C3 

07 

CALL  RD2A 

READ  IN  UPPER  BOUND 

1 44 

045C 

32 

E3 

0C 

STA  TPCKT 

SAVE  IN  TPCKT 

* 45 

045F 

C9 

RET 

RETURN  TO  INIT 

ZTEST  ZERO  TESTS  THE  LATS  UNIT  USING  EVERY  RANGE 
AND  FUNCTION  FOR  A SINGLE  PAIR  OF  UIRES  ON  THE 
FIRST  CIRCUIT  IN  THE  FIRST  BAY.  AND  TESTS  THE 
UNIT  FOR  PROPER  PERFORMANCE. 
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LINE 

151 

152 

LOC 

81 

82 

83 

SOURCE  LINE 

0460 

CD 

E7 

04 

Z7EST  CALL  CKRT 

SELECT  1ST  CIRCUIT 

153 

0463 

CD 

CF 

05 

CALL  6RKMN 

EITHER  BREAK  OR  MONITOR 

154 

0466 

3A 

EA 

0C 

LDA  STSS 

GET  STS5  FOR  MTZ  BIT 

155 

0469 

E6 

FD 

AN  I *FD 

CHANGE  MTZ  TO  0 

156 

U4bB 

D3 

05 

OUT  *05 

MTZ  TO  LATS 

157 

046D 

06 

32 

MV I 8. *32 

DELAY  50  MS  TO  GET  VALID 

158 

* 

SIGNAL 

159 

046F 

32 

EA 

0C 

STA  STS5 

SAVE  UPDATED  STS5 

160 

0472 

3A 

E9 

0C 

LDA  STS4 

GET  STS4  FOR  RFB 

161 

0475 

F6 

3F 

OR  I * 0F 

MAKE  RFB  1111  C199  VAC) 

162 

0477 

32 

E9 

0C 

STA  STS4 

UPDATE  STS4 

1 163 

047 A 

CD 

83 

06 

CALL  ZFNCT 

TEST  METER  CALIBRATION 

164 

047D 

3A 

EA 

0C 

LDA  STS5 

GET  STS5  FOR  MTZ 

165 

0480 

F6 

02 

OR  I *02 

RESET  MTZ  BIT  TO  1 

166 

0482 

D3 

05 

OUT  *05 

CLEAR  LATS 

167 

0484 

06 

32 

MVI  B. ' 32 

DELAY  50  MS 

168 

0486 

CD 

DF 

07 

CALL  DBMS 

169 

0489 

32 

EA 

0C 

STA  STS5 

UPDATE  STS5 

170 

048C 

C9 

RET 

RETURN  TO  INIT 

171 

172 

1 73 

174 

175 


* RGFN  EXPECTS  THE  PROPER  STATUS  UORD  IN  THE  A REG. 

* IT  SAVES  STS4.  OUTPUTS  THE  RANGE  AND  FUNCTION  TO 

* THE  LATS.  AND  INSURES  THE  INFORMATION  WAS  RECEIVED 


176 

048D 

32 

E9 

0C 

RGFN 

STA 

STS4 

SAVE  STS4 

177 

0490 

D3 

06 

OUT 

'06 

PUT  RFB  ON  LINES 

178 

* 

(MUST  STILL  STROBE  RFS) 

179 

0492 

5F 

MOV 

E.  A 

SAVE  STS4  IN  E 

180 

0493 

3E 

00 

MVI 

A.  '00 

INITIALIZE  EC 

181 

0495 

32 

E7 

0C 

STA 

EC 

182 

0498 

3A 

EA 

0C 

LDA 

STSS 

GET  STS5  FOR  RFS 

103 

0498 

E6 

F7 

AN  I 

' F7 

BRING  RFS  LOU 

184 

049D 

D3 

05 

OUT 

'05 

STROBE  RFS  TO  ENTER  RFB 

185 

049F 

06 

64 

MVI 

B.  '64 

DELAY  100  MS 

106 

04A1 

CD 

DF 

07 

CALL  DBMS 

187 

04A4 

F6 

08 

OR  I 

'08 

TAKE  RFS  BACK  UP  TO  1 

188 

04A6 

D3 

05 

OUT 

'05 

109 

04A8 

7B 

MOV 

A.E 

CHECK  RFB  FOR  CAP  OR  AC 

190 

04A9 

E6 

0F 

AN  I 

' 0F 

MASK  RFB  FROM  STS4 

191 

04AB 

57 

MOV 

D.A 

SAVE  RFB  IN  D REGISTER 

192 

04AC 

FE 

02 

CPI 

'02 

193 

04AL 

CA 

DA 

04 

JZ 

LONG 

CAPA  AND  VAC  NEED  MORE  DE 

194 

0481 

FE 

03 

CPI 

'03 

195 

04B3 

CA 

DA 

04 

JZ 

LONG 

196 

0486 

FE 

0F 

CPI 

' 0F 

'97 

0488 

CA 

PA 

04 

JZ 

LONG 

198 

048B 

FE 

0E 

CPI 

' 0E 

199 

048P 

CA 

DA 

04 

JZ 

LONG 

200 

04C0 

FE 

0D 

CPI 

' 0D 

A-4 


r — — 
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LINE 

LOC 

B 1 

B2 

83 

SOURCE  LINE 

201 

04C2 

CA 

DA 

04 

JZ  LONG 

20? 

04C5 

06 

0A 

MVI  B. '0A 

DELAY  VDC  AND  RES  10  MS 

203 

04C7 

CD 

DF 

07 

CALL  DBMS 

204 

04CA 

DB 

04 

CHK 

IN  '04 

INPUT  FOR  RFN 

205 

04CC 

E6 

F0 

ANI  ' F0 

MASK  FOR  RFN 

206 

04CE 

0F 

RRC 

PUT  IN  POSITION  TO  CHECK 

207 

04CF 

0F 

RRC 

200 

04D0 

0F 

RRC 

209 

04D1 

0F 

RRC 

210 

04D2 

BA 

CMP  D 

RFB-RFN7 

211 

04D3 

C8 

RZ 

RETURN  IF  RFB-RFN 

212 

04D4 

CD 

74 

05 

CALL  ECHO 

ERROR  ROUTINE  IF  RFB  NEQ  RFN 

213 

0407 

C3 

BD 

04 

JMP  RGFN 

IF  NOT  MANY  ERRORS.  TRY  AGAIN 

214 

04DA 

06 

FA 

LONG 

MVI  B. 'FA 

DELAY  500  MS  IF  CAP  OR  VAC 

215 

04DC 

CD 

DF 

07 

CALL  DBMS 

216 

040F 

06 

FA 

MVI  B. 'FA 

217 

04E  1 

CD 

DF 

07 

CALL  DBMS 

218 

04E4 

C3 

CA 

04 

JMP  CHK 

? 19 

28 

* CKRT  OUTPUTS  THE  DESIRED  CIRCUIT  TO  LATS.  AND 

* CHECKS  TO  INSURE  THE  INFORMATION  UAS  RECEIVED. 

»4 FT 

3E 

00 

CKRT  MVI  A. 00  RESET  EC 

22^* 

32 

E7 

ec 

STA  EC 

221 

3A 

EA 

0C 

CRT1 

LDA  STS5 

GET  STS5  FOR  BRK 

226 

C * 

EF 

ANI  'EF 

RESET  BRK  TO  0 

227 

04F  1 

05 

OUT  '05 

228 

04F  3 

f A 

9C 

STA  STS5 

UPDATE  STS5 

229 

04F6 

X# 

K 

LDA  STS4 

GET  STS4  FOR  MON 

23P 

04F9 

1 1 

8* 

ANI  'BF 

RESET  CCSD  AND  MON  TO  0 

231 

04FB 

D3 

06 

OUT  '06 

232 

04F0 

06 

C9 

fT7I  8.'C9 

200  MS  DELAY  FOR  MON  AND  BRK 

233 

04FF 

CD 

DF 

87 

W L DBMS 

2~4 

0502 

32 

E9 

ec 

A STS4 

SAVE  STS4 

235 

0505 

DB 

02 

* '82 

CHECK  THAT  BOTH  MONK  AND  BRK 

236 

0507 

E6 

40 

AN  . * 48 

ARE  0,  IE.  THAT  THE  CIRCUIT 

237 

0509 

C2 

1A 

05 

jnZ  «» 

IS  NOT  MONITORED  OR  BROKEN 

23f. 

050C 

DB 

03 

IN  4 ! 

23S’ 

050E 

E6 

20 

AN  I 

2 4t 

9510 

C2 

1A 

05 

JNZ  ■ 

241 

0513 

CD 

59 

05 

CALL  t»  - 

242 

0516 

CD 

At? 

05 

CALL  CHEl> 

OUTPUT  CIRCUIT  TO  EDUMICRO 

24" 

0519 

C9 

RET 

'9  »*  » 

'’SlA 

CD 

74 

05 

ER 

CALL  ECHO 

r ERROR  ROUTINE 

245 

05  ID 

C3 

EC 

04 

JMP  CRT I 

AGAIN 

247 

* CKCNT  COUNTS  THROUGH  ’ :TS.  AND  IS  CALLED 

249 

* UHEN  ALL  PAIRS  HAVE 

BEt. n 'i  THE  PREVIOUS 

249 

* CIRCUIT.  IT  CALLS 

8YCNT  THE  CIRCUITS 

250 

* IN 

A BAY  HAVE  BEEN 

TESTED . 
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LINE 

ocr  i 

LOC 

81 

82 

83 

SOURCE  LINE 

«.j  i 

252 

0520 

3A 

F0 

0C 

CKCNT  LDA  DNFLG 

CHECK  FLAG  FOR  ALL  DONE 

253 

0523 

FE 

00 

CPI  '00 

IF  DONE.  JUMP  OUT  OF  ROUTINE 

254 

0525 

CA 

EA 

07 

JZ  DONE 

255 

0528 

CD 

E7 

04 

CALL  CKRT 

ACCESS  DESIRED  CIRCUIT 

256 

052B 

3A 

E3 

0C 

LDA  TPCKT 

GET  TPCKT 

257 

052E 

47 

MOV  B.A 

258 

052F 

3A 

E2 

0C 

LDA  CKT 

GET  CKT 

259 

0532 

B8 

CMP  B 

ALL  CIRCUITS  TESTED? 

260 

0533 

CC 

3E 

05 

CZ  BYCNT 

YES?  NEXT  BAY 

261 

0536 

3C 

INR  A 

INCREASE  CIRCUIT  COUNT 

262 

0537 

37 

STC 

IN  BCD.  CARRY  BIT 

263 

0538 

3F 

CMC 

MUST  BE  ZERO  FOR  DAA  TO 

264 

0539 

27 

DAA 

WORK. 

265 

053A 

32 

E2 

0C 

STA  CKT 

RETURN  TO  CKT 

266 
oc  7 

053D 

C9 

RET 

i or 

268 

* BYCNT  IS  VERY  SIMILAR 

TO  CKCNT. BUT  INSTEAD  OF 

2C9 

* CIRCUITS.  IT  COUNTS  BAYS.  IT  HALTS  UHEN  ALL  BAYS 

270 

17  1 

* HAVE  BEEN  TESTED. 

1.1  1 

272 

053E 

3A 

El 

0C 

BYCNT  LDA  TPBAY 

GET  TPBAY 

273 

0541 

47 

MOV  B.A 

274 

0542 

3A 

E0 

0C 

LDA  BAY 

GET  BAY 

275 

3545 

B8 

CMP  B 

BAY  - TPBAY? 

276 

0546 

C2 

4F 

05 

JNZ  BINC 

277 

0549 

3E 

00 

MVI  A. '00 

YES?  ALL  TESTING  DONE 

270 

0548 

32 

F0 

0C 

STA  DNFLG 

SO  SET  DNFLG  TO  ZERO 

279 

054E 

C9 

RET 

280 

054F 

3C 

BINC  INR  A 

281 

0550 

37 

STC 

282 

0551 

3F 

CMC 

283 

0552 

27 

DAA 

284 

0553 

32 

E0 

0C 

STA  BAY 

UPDATE  BAY 

285 

0556 

3E 

99 

MVI  A. '99 

RESET  CKT  BEFORE  RET  TO  CKCNT 

286 

287 

0558 

C9 

RET 

288 

* STROBE  SEES  THAT  THE  BAYS  AND  CIRCUITS  ARE  TRANS- 

289 

* MITTED  TO  LATS  PROPERLY.  OUTPT  IS  THE  SUBROUTINE 

290 

oq  1 

* THAT  DOES  THE  BULK  OF 

THE  CORK. 

292 

0559 

3A 

E9 

0C 

STROB  LDA  STS4 

GET  CCSD 

293 

055C 

E6 

DF 

ANI  'DF 

TAKE  LOU  TO  CLEAR  LATS 

294 

055E 

D3 

06 

OUT  '06 

295 

0560 

CD 

4C 

07 

CALL  HUNUS 

?°6 

0563 

F6 

20 

OR  I '20 

TAKE  BACK  HIGH  AFTER  STROBE 

297 

0555 

D3 

06 

OUT  *06 

298 

0567 

3A 

E0 

0C 

LDA  BAY 

FETCH  BAY  BAY- INF 

299 

056A 

CD 

83 

05 

CALL  OUTPT 

300 

056D 

3A 

E2 

0C 

LDA  CKT 

FETCH  CKT  CKT- INF 

SHE  - 


t 


AFCS  8060  ASSEMBLER 


LATS  CONTROLLER 


10:05  169/79 


PAGE  7 


! 


I 


k 


I | 

K 


LINE 

LOC 

81 

82 

83 

SOURCE  LINE 

301 

0570 

CD 

83 

05 

CALL  OUTPT 

302 

0573 

C9 

RET 

Jw  J 

304 

* ECHO  IS  A ROUTINE  CALLED  UHENEVER  THERE  HAS  BEEN 

305 

* AN  ECHO  ERROR.  IE.  DIFFERENT  INFORMATION  BACK  FROM 

306 

* LATS  THAT  DAS  GIVEN 

TO  IT.  ECHO  PROVIDES  A LITTLE 

307 

* PADDING  BY  REPEATING 

THE  TRANSFER  A FEU  TIMES 

308 

* BEFORE  PRINTING  THE 

ERROR  MESSAGE. 

310 

0574 

3A 

E 7 

0C 

ECHO  LDA  EC 

FETCH  EC 

311 

0577 

3C 

INR  A 

INCREASE  IT 

312 

0578 

FE 

10 

CPI  *10 

HOU  MANY  READ  ERRORS? 

313 

057A 

32 

E7 

0C 

STA  EC 

UPDATE  EC 

314 

057D 

C0 

RNZ 

FEU  ERRORS.  RETURN  AND 

315 

* 

TRY  AGAIN 

316 

057E 

IE 

01 

MV I E, '0 1 

MANY  ERRORS.  GIVE  ERROR 

317 

0580 

C3 

53 

07 

JMP  ERMS 

MESSAGE  01 

319 

* LATS  EXPECTS  BAY  AND 

CIRCUIT  INFORMATION  IN  A 

320 

* STRING  OF  4 BIT  UORDS  STROBED  BY  CKST.  EDUMICRO 

321 

* USES  8 BIT  UORDS  UHICH  MUST  BE  SHIFTED  AND  MASKED 

322 

* BEFORE  TRANSMISSION. 

OUTPT  DOES  THIS.  UHILE  STROB 

323 

* KEEPS  TRACK  OF  UORDS 

-j  ** 

325 

0563 

IE 

00 

OUTPT  MVI  E, '00 

INITIALIZE  N 

326 

0585 

57 

MOV  D. A 

327 

0586 

7B 

BACK  MOV  A.E 

328 

0587 

FE 

02 

CPI  '02 

N ITERATIONS? 

329 

0589 

C8 

RZ 

330 

A50A 

7A 

MOV  A.  D 

INF 

331 

0588 

0F 

RRC 

MOVE  TENS  DIGIT  TO  RIGHT 

332 

058C 

0F 

RRC 

FIRST  TIME  THRU.  AND  UNITS 

J .)  J 

058D 

0F 

RRC 

TO  RIGHT  SECOND  TIME  THRU 

’’34 

058E 

0F 

RRC 

35 

058F 

57 

MOV  D, A 

36 

0590 

3A 

E8 

0C 

LDA  STS4A 

GET  STS4A  FOR  CKB 

137 

0593 

47 

MOV  B. A 

338 

0594 

7A 

MOV  A. D 

139 

0595 

E6 

0F 

AN  I ' 0F 

MASK  OFF  EITHER  TENS  OR  UNITS 

0597 

80 

ORA  B 

341 

0598 

D3 

07 

OUT  '07 

OUTPUT  STS4A 

42 

059A 

3A 

E9 

0C 

LDA  STS4 

GET  STS4  FOR  CKST 

:43 

959D 

E6 

7F 

AN  I ' 7F 

BRING  CKST  LOU 

•44 

C59F 

D3 

06 

OUT  '06 

345 

05A  1 

CD 

4C 

07 

CALL  HUNUS 

HOLD  LOU  FOR  100US 

-ac, 

05A4 

F6 

80 

OR  I '80 

3*»7 

05A6 

D3 

06 

OUT  '06 

348 

85A8 

1C 

INR  E 

INCREASE  N 

349 

350 

05A9 

C3 

86 

05 

JMP  BACK 

SECOND  HALF  OF  LIORD 

1 


I' 
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L INC 

_0C 

B 1 

B2 

B3 

SOURCE  LINE 

oil 

* CHECK  MAKES  SURE  THAT 

THE  CORRECT  CIRCUIT  AND  BAY 

352 

353 
35  4 

★ DAS 

W kir  -w  -4,'  t 

RECEIVED  BY  LATS. 

95AC 

06 

32 

CHECK 

MVI  B» ' 32 

DELAY  50  MS  FOR  BCK  AND  OCK 

1' 

05AE 

CD 

DF 

07 

CALL  DBMS 

TO  SETTLE 

3L6 

05B  1 

D8 

07 

IN  '07 

GET  BCK 

357 

0583 

47 

MOV  B.A 

353 

0584 

30 

E0 

0C 

LDA  BAY 

FETCH  BAY 

3‘w  J 

05B7 

63 

CMP  8 

BAY-BYCK? 

360 

0588 

CA 

C4 

05 

JZ  CKCK 

3'.  1 

0588 

CD 

74 

05 

ERR 

CALL  ECHO 

BAY  NEQ  BYCK.OCK  NEQ  CKT, 

362 

058E 

CD 

59 

05 

CALL  STROB 

REPEAT  INPUT 

363 

05C  1 

C3 

AC 

05 

JMP  CHECK 

3o4 

05C4 

OB 

06 

CKCK 

IN  '06 

GET  OCK 

365 

05C6 

47 

MOV  B.A 

366 

05C7 

3A 

E2 

0C 

LDA  CKT 

FETCH  CKT 

367 

05CA 

68 

CMP  B 

OCK-CKT? 

360 

05CB 

C2 

B8 

05 

JNZ  ERR 

369 

370 

371 

05CE 

C9 

RET 

* BREAKS  OR  MONITORS  CIRCUIT  BASED  ON  STATUS  UORD 

372 

* BRK 1.0  FOR  BREAK,  ALL 

OTHER  FOR  MONITOR 

373 

*>Mi^**********>Mt*oK****JM<***^*:Mo1<W>MC*^)Mc*nK******** 

374 

05CF 

3E 

00 

BRKMN 

MVI  A, 00 

375 

05D 1 

32 

E7 

0C 

STA  EC 

INITIALIZE  EC 

376 

05D4 

3A 

EB 

0C 

AA 

LDA  BRK I 

GET  BRK I 

377 

05D7 

F6 

00 

OR  I '00 

SET  FLAGS 

373 

05D9 

CA 

F9 

05 

JZ  BKST 

IF  BRK 1-0. BREAK  CIRCUIT 

379 

05DC 

3A 

E9 

0C 

LDA  STS4 

GET  STS4  FOR  MON 

300 

05DF 

F6 

40 

OR  I '40 

SET  MON-1 

381 

05E1 

D3 

06 

OUT  '06 

362 

05E3 

06 

C9 

MVI  B.'C9 

3C3 

05C5 

CD 

DF 

07 

CALL  DBMS 

DELAY  200  MS  FOR  VALID  MON 

384 

05E8 

32 

E9 

0C 

STA  STS4 

RETURN  STS4 

305 

05EB 

CD 

54 

06 

CALL  FLT 

CHECK  FOR  FLT 

396 

05EE 

DB 

02 

IN  '02 

CHECK  MONK 

307 

05F0 

E6 

40 

AN  I '40 

360 

05F2 

C0 

RNZ 

MONK  RECEIVED,  RETURN 

389 

05F3 

CD 

74 

05 

CALL  ECHO 

NOT  RECEIVED?  ERROR  ROUTINE 

398 

65F6 

C3 

D4 

05 

JMP  AA 

39 

05F9 

3A 

EA 

0C 

BKST 

LDA  STS5 

GET  STS5  FOR  BRK 

392 

05FC 

F6 

10 

OR  I '10 

SET  BRK  HIGH  TO  BREAK 

3«>3 

05FE 

D3 

05 

OUT  '05 

78,-1 

0600 

06 

C9 

MVI  B,'C9 

DELAY  200  MS  FOR  VALID  BRK 

0602 

CD 

DF 

07 

CALL  DBMS 

•jo,*; 

0605 

32 

EA 

0C 

STA  ST35 

SAVE  STS5 

0608 

CD 

54 

06 

CALL  FLT 

CHECK  FOR  FLT 

3*8 

0600 

DB 

03 

IN  '03 

BRKK 

?99 

0600 

E6 

20 

AN  I '20 

068F 

C0 

RNZ 

BRKK  RECEIVED.  RETURN 

A- 8 

~Z~-  ■ : . . } 

( 
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SOURCE  LINE 


CALL  ECHO 
JI-IP  AA 


401  0610  CD  74  05 

402  0613  C3  D4  05 

403 

404 

405 

406 

407  0616  3A  E8  0C  PRCNT  LDA  STS4A 

406  0619  FE  A0  CPI  ' AO 

409  0610  CA  27  06  JZ  CIR 

410  06 IE  CD  35  06  PRCL  CALL  PR 

411  0621  C6  10  ADI  '10 

412  0623  32  E8  0C  STA  STS4A 

413  0626  C9  RET 

414  0627  CD  20  05  CIR  CALL  CKCNT 

4:5  062A  CD  CF  05  CALL  BRKMN 

416  062D  3E  00  MVI  A. '00 

417  062F  32  E8  0C  STA  STS4A 

413  0632  C3  IE  06  JMP  PRCL 


* COUNTS  THROUGH  MATRIX  OF  PAIRS  OF  UIRES.  AND 

* GROUNDS.  ONCE  ALL  PAIRS  TESTED.  IT  CALLS  CKCNT 


GET  STS4A  FOR  MTC 
ALL  PAIRS  TESTED 
YES?  GO  TO  NEXT  CIRCUIT 


INCREASE  MTC 
RESTORE  STS4A 


SET  UP  NEXT  CIRCUIT 
AND  MONITOR  OR  BREAK  IT 
INITIALIZE  MTC 
UPDATE  STS4A 

AND  EXAMINE  THE  FIRST  PAIR 


* EXPECTS  PAIR  TO  BE  CALLED  IN  STS4A,  THIS  ROUTINE 

* OUTPUTS  THE  MATRIX  TO  LATS  AND  CHECKS  FOR  INFO 

* RECEIVED. 


24  0635  57 

425  0636  3E  00 

426  0636  32  E7  0C 

427  063B  7A 

428  063C  D3  07 

429  06 3E  06  0A 

430  0641)  CD  DF  07 

431  0643  47 

432  0644  DB  04 

433  0646  E6  0F 

434  >3648  0F 

435  3649  0F 

436  064A  0F 

437  664B  0F 

479  064C  B8 

439  064i>  C8 

440  064E  CD  74  05 

44!  0651  C3  3B  06 


MOV  D.fi 
MVI  A. 00 
STA  EC 
MOV  A. D 
OUT  '07 
MVI  B.'0A 
CALL  DBMS 
MOV  B. A 
IN  '04 
ANI  ' 0F 
RRC 
RRC 
RRC 
RRC 
CMP  B 
RZ 

CALL  ECHO 
JMP  PR  1 


DO  NOT  DESTROY  STS4A 
IN ITIAL IXE  EC 


GET  STS4A 
OUT  TO  LATS 


DELAY  10  MS  FOR  VALID  SIGNAL 


MTC  INPUT 

MASK  OFF  MTCK 

ROTATE  TO  MTC  POSITION 


MTCK  - MTC? 


NOT  EQUAL  . REPEAT 


* CHECKS  FOR  FLT  BIT  AFTER  BRK  OR -MON.  IF  FLT.  GOES 

* TO  ERROR  MESSAGE. 

FLT  IN  '02  INPUT  AND  MASK  FLT  BIT 

ANI  *e0  (ACTIVE  LOU) 

RNZ 

MVI  E. '02  ERROR  MESSAGE  02.  FLT  SIGNAL 

JMP  ERMS  DISPLAY  ERROR  MESSAGE 


db  02 

6650  ES  60 
0636  C0 

449  06 6 9 JE  02 

450  0659  C3  53  07 
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LINE 

LOC 

81 

B2 

B3 

SOURCE  LINE 

451 

452 

* READ  TAKES  THE 

READING  OFF  THE  METER  AND  STORES  IT 

453 

* IN 

MOT  STATUS  LORD. 

OVR  BIT  SAYS  METER  OFF  SCALE. 

454 

* READ  CHECKS  AND 

CHANGES  SCALE.  IF  TOP  SCALE.  ERROR 

455 

* MESSAGE  IS  GENERATED 

HJO 

E 457 

065E 

3E 

00 

READ 

MVI  A. 00 

INITIALIZE  EC 

458 

0660 

32 

E7 

0C 

STA  EC 

459 

0663 

DB 

03 

RD1 

IN  *03 

CHECK  MTON  (ACTIVE  HIGH) 

460 

0665 

E6 

40 

AN  I *40 

461 

0667 

CA 

6E 

06 

JZ  ONMT 

IF  NOT. TURN  METER  ON 

■jm  462 

066A 

CD 

A 1 

06 

CALL  DREAD 

IF  ON. READ  METER 

463 

066D 

C9 

RET 

464 

066E 

3A 

EA 

0C 

ONMT 

LDA  STS5 

NOT  ON.  GET  STS5  FOR  MTON 

465 

0671 

F6 

20 

OR I '20 

MTON  HIGH. TURN  METER  ON 

466 

0673 

32 

EA 

0C 

STA  STS5 

SAVE  STS5 

467 

0676 

D3 

05 

OUT  '05 

468 

0678 

06 

32 

MVI  8. ' 32 

DELAY  50  MS  FOR  VALID  SIGNAL 

469 

067A 

CD 

DF 

07 

CALL  DBMS 

470 

067D 

CD 

74 

05 

CALL  ECHO 

p ; 47  1 

0680 

C3 

63 

06 

JMP  RD1 

*♦(  c 

473 

* COUNTS  THROUGH 

FUNCTIONS  AND  RANGES  FOR  ZERO  TEST 

•t  1 M 

475 

0683 

CD 

8D 

04 

ZFNCT 

CALL  RGFN 

OUTPUT  RFB  TO  LATS 

476 

0666 

CD 

BB 

06 

CALL  ZREAD 

CHECK  VALUES  FROM  METER 

477 

0689 

3A 

E9 

0C 

BB 

LDA  STS4 

GET  STS4  FOR  RFB 

476 

068C 

3D 

DCR  A 

MOVE  TO  NEXT  FUNCTION  (IN 

47? 

* 

TEST.  MUST  CHECK  ALL  RANGES 

480 

* 

AND  FUNCTIONS 

481 

06BD 

4F 

MOV  C, A 

SAVE  NEU  STS4 

482 

068E 

E6 

0F 

ANI  ' 0F 

MASK  RFB 

483 

0690 

FE 

05 

CPI  '05 

THIS  RANGE  NOT  POSSIBLE 

484 

0692 

CA 

69 

06 

JZ  BB 

SO  DECREASE  AGAIN 

485 

0695 

FE 

04 

CPI  '04 

SAME  (JITH  RANGE  04 

4ee 

0697 

CA 

89 

06 

JZ  BB 

487 

069A 

FE 

01 

CPI  '01 

CHECK  ALL  DONE 

488 

069C 

79 

MOV  A. C 

STS4  MUST  BE  IN  A FOR  RGFN 

469 

069D 

C8 

RZ 

490 

/|Q  t 

069E 

C3 

83 

06 

JMP  ZFNCT 

REPEAT  LOOP  UNTIL  ALL  DONE 

4?  2 

* DREAD  STROBES  METER. 

UA ITS  FOR  IT  TO  SETTLE.  AND 

493 

* CHECKS  OVR  BIT. 

CALLED  FROM  ZREAD  OP  MREAD. 

« * 
495 

86A 1 

3A 

EA 

0C 

DREAD 

LDA  STS5 

GET  STS5  FOR  MST 

496 

06A4 

E6 

FB 

ANI  'FB 

BRING  MST  LOU 

497 

06A6 

D3 

05 

OUT  '05 

498 

86A9 

CD 

4C 

07 

CALL  HUNUS 

STROBE  MST  LOU  FOR  100  US 

499 

06AB 

F6 

04 

OR I '04 

TAKE  MST  HIGH 

500 

06AD 

D3 

05 

OUT  '05 

END  OF  PULSE 

AFCS  6080  ASSEMBLER 
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LiNE 

LOC 

81 

82 

83 

SOURCE  LINE 

501 

06AF 

DB 

03 

WAIT 

IN 

*03 

LOOK  FOR  EOC  (END  OF 

502 

CONVERSION) 

503 

0681 

E6 

10 

ANI 

' 10 

MASK  EOC  AND  WAIT  FOR  LOU 

504 

06B3 

C2 

AF 

06 

JNZ 

UA  IT 

505 

0686 

DB 

02 

IN 

*02 

LOOK  FOR  OVR 

506 

0688 

E6 

10 

ANI 

* 10 

AND  MASK 

507 

06BA 

C9 

RET 

509 

♦ 2READ  CHECKS  TOLLERENCES  DURING  ZERO  TESTING.  ALL 

510 

* READINGS  MUST  BE  U I THIN  +-5.  AND  CAPA  SHOULD  OVER- 

511 

* FLOU. 

513 

0688 

CD 

5E 

06 

ZREAD 

CALL  READ 

UA  IT  FOR  READING,  CHECK  OVR 

514 

06BE 

CA 

D2 

06 

JZ 

CAP 

EXPECT  OVR  IF  CAP 

515 

06C1 

CD 

E0 

06 

CALL  CKRFN 

CHECK  RFB  FOR  CAP 

516 

06C4 

F6 

00 

OR  I 

*00 

SET  FLAGS 

517 

06C6 

C4 

DB 

06 

CNZ 

ERZ 

IF  CAP.  AND  NOT  OVR. 

518 

* 

ZERO  TEST  FAILS 

519 

06C9 

DB 

05 

IN 

*05 

READ  IN  MTO 

520 

06CB 

47 

MOV 

B.A 

521 

06CC 

DE 

05 

SBI 

'05 

522 

06CE 

F4 

DB 

06 

CP 

ERZ 

IF  MTO  >5.  ZERO  TEST  FAILED 

523 

06D 1 

C9 

RET 

524 

06D2 

CD 

E0 

06 

CAP 

CALL  CKRFN 

CHECK  RFB  FOR  OTHER  THAN  CAP 

325 

06D5 

F6 

00 

OR  I 

*00 

ONLY  CAP  SHOULD  OVERFLOU 

526 

0SD7 

CC 

DB 

06 

CZ 

ERZ 

527 

06DA 

C9 

RET 

528 

05DB 

IE 

03 

ERZ 

MVI 

E.  03 

ERROR  MESSAGE  03.  ZERO  TEST 

529 

* 

FAILURE 

530 

06DD 

C3 

S3 

07 

jrp 

ERMS 

DISPLAY  MESSAGE 

531 

06E0 

3A 

E9 

0C 

CKRFN 

LDA 

ST54 

STS4  FOR  RFB 

532 

06E3 

E6 

0F 

ANI 

* 0F 

MASK  RFB 

533 

06E5 

FE 

02 

CPI 

*02 

CHECK  FOR  CAP 

534 

06E7 

CA 

F2 

06 

JZ 

NG 

IF  CAP.  SET  CAPFLG  TO  A 1 

535 

06EA 

FE 

03 

CPI 

'03 

(OTHER  RFB  FOR  CAP) 

536 

06EC 

CA 

F2 

06 

JZ 

NG 

537 

06EF 

3E 

00 

MVI 

A. 00 

SET  CAPFLG  TO  A 0 

530 

06F1 

C9 

RET 

539 

06F2 

3E 

01 

NG 

rrvi 

A. 01 

540 

06F4 

C9 

RET 

542 

♦MREAD  CHECKS  AND 

INCREMENTS  RANGE  ON  AN  OVERFLOU 

543 

♦AND  STORES  METER 

READING  IN  MOT. 

545 

06F5 

CD 

5E 

06 

MREAD 

CALL 

. READ 

METER  READ 

546 

06F9 

CA 

01 

07 

JZ 

CRNG 

CHANGE  RANGE  IF  OVR 

547 

06FB 

DB 

05 

IN 

*05 

INPUT  MOT 

548 

06FD 

32 

E4 

0C 

STA 

MOT 

SAVE  MOT 

549 

550 

0700 

C9 

i r,  , ■ ■ 

RET 

... 

MOT  IS  IN  RAM  FOR  OPERATOR 
n^»»»^»**)M^»********»*«n^iM«*iWa» 

I * i 

I 

A-ll  • 
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LINE 

LOC 

81 

82 

83 

SOURCE  LINE 

551 

* CHANGES  RANGE 

IF 

OVR  AND  NOT  ON  TOP  SCALE.  IF  TOP 

53L 

♦ SCALE. GIVES  ERROR 

MESSAGE. 

J 1 J 

554 

0701 

3A 

E9 

0C 

CRNG 

LDA  STS4 

GET  STS4  FOR  RFB 

055 

0704 

47 

MOV  B,  A 

550 

3705 

E6 

0F 

ANI  *0F 

MASK  RFB 

357 

0707 

FE 

0F 

CPI  * 0F 

MAKE  SURE  METER  ISNOT  AT  TOP 

558 

0709 

CC 

23 

07 

CZ  ERM 

RANGE  FOR  VAC.VDC.RES  OR  CAP 

553 

970C 

FE 

0C 

CHI  *0C 

560 

070E 

CC 

28 

07 

C2  ERM 

561 

0711 

FE 

04 

CPI  '04 

562 

0715 

CC 

28 

07 

CZ  ERM 

563 

9716 

FE 

03 

CPI  '03 

5o4 

0713 

CC 

28 

07 

CZ  ERM 

365 

0718 

3C 

INR  A 

GO  TO  NEXT  RANGE 

566 

07 1C 

4F 

MOV  C.A 

567 

07  ID 

78 

MOV  A.B 

RETRIEVE  OLD  STS4 

560 

07  IE 

E6 

F0 

ANI  ' F0 

TO  GET  EXM. CCDS. MON, CKST 

563 

0720 

81 

ORA  C 

570 

0721 

CD 

3D 

04 

CALL  RGFN 

NEU  STS4  TO  LATS 

571 

0724 

CD 

5E 

06 

CALL  READ 

TRY  INPUT  METER  UNDER  NEU 

572 

* 

RANGE  (MUST  CALL  TO  KEEP 

573 

* 

STACK  STRAIGHT). 

574 

0727 

C9 

RET 

575 

0728 

IE 

04 

ERM 

MVI  E. ' 04 

ERROR  MESSAGE  04,  OVER  RANGE 

576 

577 
378 

072A 

C3 

53 

07 

JMP  ERMS 

ioAnlr 

DISPLAY  ERROR  MESSAGE 

* FNSCN  USES  THE 

POINTER  IN  RAM  TO  SCAN  THE  FOUR 

573 

* FUNCTIONS  LATS 

CAN  MEASURE, RESETS  THE  POINTER. AND 

.50 

* GOES  TO  THE  NEXT 

PAIR  UHEN  ALL  FUNCTIONS  TESTED. 

381 

JWot^*******jMotc**)toWe>|of  **********  ***  ******  ************ 

' 02 

872D 

2A 

E5 

0C 

FNSCN 

LHLD  PNTR 

GET  PNTR 

. 33 

8730 

7D 

MOV  A.L 

384 

075  1 

FE 

F0 

CPI  DN 

ALL  FUNCTIONS  DONE? 

505 

0733 

CC 

45 

07 

CZ  PAIR 

IF  ALL  DONE.  GO  TO  NEXT  PAIR 

506 

0736 

46 

MOV  8.M 

PUT  RFB  IN  B 

587 

0737 

3A 

E9 

0C 

LDA  STS4 

GET  STS4  FOR  OLD  RFB 

508 

<3734 

F6 

0F 

OR  I ' 0F 

MASK  STS4  OF  OLD  RFB 

503 

073C 

40 

ANA  B 

UPDATE  STS4 

580 

073D 

CD 

8D 

04 

CALL  RGFN 

SAVE  STS4  AND  OUTPUT  RANGE 

53  ! 

0740 

23 

INX  H 

532 

0741 

22 

E5 

0C 

SHLD  PNTR 

ADVANCE  AND  SAVE  POINTER 

'■•93 

9744 

C9 

RET 

55  ; 

0743 

CD 

!5 

06 

PAIR 

CALL  PRCNT 

GO  TO  NEXT  PAIR 

l*.  O ~ 

0748 

21 

EC 

0C 

LXI  H,  VAC 

INITIALIZE  POINTER 

*5^6 

r-dr 

0740 

C9 

~ 

RET 

u<i  aa  ii  ccrriKin  ncri  q v^^ik^^***^**^** 

33,8 

374C 

06 

04 

HUNUS 

MVI  B. 04 

vJ  DLl/Unl/  ytLn  T 

DELAY  OF  100  US  FOR  STROBING 

3D3 

974E 

05 

ONE 

DCR  B 

608 

074F 

C2 

4£ 

07 

JNZ  ONE 

A-12 
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INE 

LOC 

61 

62 

83 

SOURCE  LINE 

'501 

0752 

C9 

RET 

DO*_ 

003 

^ T*  'T'  ^ ™ ^ “ T*  ^ ^ ^ 

* PRINT  ERROR  MESSAGE  * 

01  TRANSFER  ERROR 

604 

* 

02  FLT  SIGNAL 

60? 

* 

03  2ER0  TEST  FAILURE 

606 

* 

04  OVERFLOW 

607’ 

* DA  IT  FOR  KEYIN  8EF0RE  DISPLAYING  RETURN  ADDRESS 

603 

* AND  JUMP  TO  ADDRESS 

KEYED  IN 

609 

********  *******  ********* * * * ****  *******  ************** 

610 

0753 

CD 

75 

07 

ERMS  CALL  DS1BY 

DISPLAY  EM 

611 

075* 

CD 

93 

07 

CALL  KEYIN 

WAIT  FOR  KEY  BEFORE  DISPLAY 

612 

0755 

D 1 

POP  D 

GET  RET  ADDRESS  OFF  STACK 

613 

0754 

CD 

65 

07 

CALL  DSDE 

DISPLAY  RETURN  ADRESS 

614 

075D 

CD 

D5 

07 

CALL  RD2HL 

INPUT  2 BYTES  INTO  H-L 

615 

iC  1 C 

0760 

E9 

PCHL 

JUMP  TO  INPUTTED  ADDRESS 

DID 

61'’ 

* ROUTINE  DISPLAYS  VARIOUS  THINGS  DEPENDING  ON  ENTRY 

5 1 8 

* POINT.  DS2BY:  CONTENTS  OF  2 MEMORY  LOCATIONS 

619 

* DSDE  : CONTENTS  OF  D.E  REGISTERS 

620 

* DSlBY:  CONTENTS  OF  E REGISTER 

621 

* REGISTERS:  ALL 

622 

* MEMORY:  DISPLA.DSPMS 

6-3 

* STACK  SPACE:  2 BYTES 

624 

* OUTPORTS:  0.1 

o25 

>r  -jfr 

* PROGRAMMER:  AL  LARSON 

ikikilQkikticitCikjkrkitejtzjlokjletir&ikjktiok  Jr  *■ 

0 — 0 

62? 

0761 

2A 

FI 

0C 

DS2BY  LHLD  DSPLA 

GET  LOCATIONS  OF  DATA 

628 

0764 

E8 

XCHG 

PUT  IN  D.E 

639 

0765 

7A 

DSDE  MOV  A. D 

DISPLAY  DIGIT  2 

630 

0766 

06 

04 

MVI  B. ' 04 

LOCATION  TO  DISPLAY 

S3I 

0768 

CD 

82 

07 

CALL  DISPL 

632 

076B 

7A 

MOV  A. D 

DISPLAY  DIGIT  3 

633 

076C 

0F 

RRC 

634 

076D 

0F 

RRC 

63? 

076E 

0F 

RRC 

636 

0766 

OF 

RRC 

637 

0770 

06 

08 

MVI  B. '08 

3 36 

0772 

CD 

82 

07 

CALL  DISPL 

539 

0775 

76 

DSlBY  MOV  A. E 

DISPLAY  DIGIT  0 

640 

0776 

06 

01 

MV' I 8. ' 0 1 

541 

0776 

CD 

87 

07 

CALL  DISPL 

• V.T- 

0770 

76 

MOV  A.E 

DISPLAY  DIGIT  1 

.:,i3 

0776 

0F 

RRC 

. • i 

*1770 

OF 

RRC 

(’77E 

OF 

RRC 

*•" 

■ r~r 

OF 

RRC 

\ 

*rgg 

06 

02 

MVI  B,'02 

PLCE  DIGIT  IN  DISPLAY  1 

* 4 * 

6'0 

*D ISPL  DISPLAYS  A (3:0) 

IN  KEYBOARD  DISPLAY  LOCATIONS 

6S(i 

•(■DESIGNATED  BY  REGISTER 

B.  THE  LSB  OF  B CORRESAPONDS 

* 
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LINE 

LOC 

81 

B2  B3 

SOURCE  LINE 

5b  1 

’•‘TO  THE  LS3  OF  THE  DISPL8Y  LIGHTS  ETC. 8 LOGIC  I IN  8 

652 

’•‘BIT  POSITION  C8USES 

8(3:0)  TO  BE  DISPL8YED  IN  THE 

553 

★CORRESPONDING  DISPL8Y  POSITION. 8 (3:0)  MAY  BE 

654 

*D ISPL8YED  IN  UP  TO 

5 POSITIONS  SIMULTANEOUSLY.  0 IN 

M 555 

★8  C8USES  CORRESPONDING  DISPL8Y  POSITION  TO  REMAIN 

656 

★ REGISTERS:  8.C 

55? 

★ OUTPORTS:  0.1 

558 

★ PROGRAMMER:  8L  L8RS0N.  MODIFIED  BY  M.VERSTEGEN 

659 

***********************  ***  *****  *******  **  ************ 

66£j 

0782 

E6 

0F 

DISPL  8NI  * 0F 

RESET  UPPER  TO  UNBL8NK 

66 1 

0784 

D3 

01 

OUT  '01 

SEND  TO  DISPL8Y 

h 

pi 

562 

0?36 

3E 

FF 

MVI  8,'FF 

SEND  L08D  C0MM8ND  TO  PORT  0 

563 

0?3t 

03 

00 

OUT  '00 

664 

0788 

78 

MOV  8,8 

GET  L08D  LORD 

GbG 

6788 

2F 

CM8 

COMPLEMENT 

6C6 

070C 

D3 

00 

OUT  '00 

8ND  SEND 

56? 

078E 

3E 

FF 

MVI  8,'FF 

RESEND  EERO  V8LUE 

668 

0790 

D3 

00 

OUT  '00 

669 

0797 

C9 

RET 

670 

***************************************************** 

r 

cr*  i 

*KEYIN  SENSES  1 KEY 

DOUN.  DEBOUNCES. DECODES.  8ND  PUTS 

672 

*HEX  V8LUE  IN  8 REGISTER 

6?3 

* REGISTERS:  8.B.C. 

D.E 

674 

* INPORTS:  0.1 

675 

* PR0GR8MMER:  8L  L8RS0N 

•j  i b 

6?7 

0793 

DB 

00 

KEYIN  IN  '00 

RE8D  KEYS  7-0 

6?8 

0795 

2F 

CM8 

INVERT 

6?9 

0796 

4F 

MOV  C. 8 

S8VE  8 COPY 

GCC 

0797 

DB 

01 

IN  *01 

RE8D  KEYS  F-0 

60 1 

0799 

2F 

CM8 

582 

0798 

4? 

MOV  B, 8 

1 59? 

0798 

81 

0R8  C 

CHECK  FOR  BNY  KEY  PRESSED 

J84 

079C 

C8 

93  07 

JZ  KEYIN 

NONE  DOUN.  LIB I T IN  THIS  LOOP 

655 

079F 

IE 

00 

KEYCD  MVI  E, 00 

INITIALIZE  HEXCODE 

586 

0791 

79 

MOV  8.C 

GET  7-0 

68? 

0782 

16 

08 

LOOP  MVI  D. '00 

SET  UP  8 BIT  COUNTER 

659 

0784 

0F 

R0T8T  RRC 

PUT  NEXT  LS  BIT  IN  C8RRY 

60'-* 

0785 

08 

B 1 07 

JC  KEYUP 

DONE  IF  THIS  UBS  KEYDOUN 

| 1 

590 

0786 

16 

INR  E 

ADVANCE  HE!  .CODE 

691 

0789 

15 

DCR  D 

SEE  IF  LORD  IS  DONE 

3?? 

0780 

C2 

84  07 

JNZ  R0T8T 

NO?  KEEP  SHIFTING  FOR  KEY 

693 

078D 

70 

MOV  8.B 

PUT  KEYS  F-8  IN  8 

n?o  r 

C3 

87  07 

JMP  LOOP 

LOOK  FOR  KEYDOUN  IN  SECOND 

.95 

878  1 

16 

80 

KEYUP  MVI  D» '80 

SET  DELAY  COUNT 

;0.2 

0?sr 5 

r'£ 

00 

REflDU  PI  '00 

PC8D  KEYS  0-7 

69? 

07  65 

47 

MOV  8,8 

SAVE  IN  B 

•;?3 

0786 

r>8 

01 

IN  '01 

READ  KEYS  8-F 

s?9 

0788 

80 

8N8  B 

CHECK  ALL  UP 

708 

07B9 

FE 

FF 

CPI  'FF 

A- 14 

1 

* 
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l :ne 

LOC 

B 1 

B2 

B3 

SOURCE  LINE 

■*P! 

07BB 

C2 

B 1 

07 

JNZ  KEYUP 

KEY 

STILL  DOWN.  WAIT 

078E 

15 

DCR  D 

ALL 

UP.  DELAY  TO 

DEBOUNCE 

T03 

07BF 

C2 

B3 

07 

JNZ  READU 

LOOP  UNTIL  DELAY 

DONE 

704 

07C2 

C9 

RET 

***************************************************** 
*RD2A  AND  RD2HL  WERE  ROUTINES  WRITTEN  FOR  EDUMICRO  O/S 
★MODIFIED  FOR  THIS  PROGRAM 

* REGISTERS:  ALL 

* MEMORY:  DSPLA.DSPMS 

* STACK:  5 BYTES 

* INPORTS:  0.1 

* OUTPORTS : 0.  1 

************************************************* 


714 

07C3 

CD 

93 

07 

RD2A 

CALL  KEY IN 

READ  KEY  CHARACTER  TO  A 

715 

07C6 

0F 

RRC 

SHIFT  TO  MS  POSITION 

7 It, 

U7C7 

0F 

RRC 

717 

07CO 

0F 

RRC 

718 

07C9 

0F 

RRC 

719 

07CA 

6F 

MOV  L. A 

SAVE  KEYED  CHARACTER 

728 

G7CB 

CD 

93 

07 

CALL  KEYIN 

READ  LS  KEYED  CHARACTER 

721 

87CE 

B5 

ORA  L 

724 

07CF 

5D 

MOV  E.L 

97D8 

CD 

75 

07 

CALL  DS1BY 

. 4 

37D3 

78 

MOV  A.E 

EXPECT  VALUE  IN  A 

■’IS 

07D4 

C9 

RET 

07D5 

CD 

C3 

07 

RD2HL 

CALL  RD2A 

727 

07D3 

E5 

PUSH  H 

SAVE  FIRST  SET  OF  CHARACTERS 

J-  V 

' .7D9 

CD 

C3 

07 

CALL  RD2A 

AND  GET  SECOND  SET 

72? 

07DC 

El 

POP  H 

AS  WELL  AS  FIRST 

■ i . 

A7?D 

67 

MOV  H-A 

SET  SECOND  IN  H 

. 

07  Dt 

C9 

RET 

**************************************************** 

* DELAYS  6 MILLISECONDS  WHERE  B IS  THE  VALUE  IN  B 

* REGISTERS:  8.C 

* PROGRAMMER : AL  LARSON 

^t**********************’!:*  *************************** 


07DF 

0E 

~D 

DBMS 

MV  I 

C.  *3D 

7r  1 

0D 

DIMS 

DCR 

C 

P~E2 

C2 

El 

07 

JNZ 

DIMS 

C7F.5 

05 

DCR 

B 

C7E6 

C2 

DF 

07 

JNZ 

DBMS 

07E9 

C9 

RET 

U7EA 

76 

DONE 

HLT 

END 

P~CS  8080  ASSEMBLER 


I 


S ;'M30L  TABLE 


SYMBOL 

VALUE 

SYMBOL 

VALUE 

SYMBOL 

VALUE 

SYMBOL 

VA' 

' 'r 

STPTO 

0C 

DF 

BAY 

0C 

E0 

TPBAY 

0C 

El 

CKT 

0C 

E2 

TPCKT 

0C 

E3 

MOT 

0C 

E4 

PNTR 

0C 

E5 

EC 

0C 

E2 

STS4A 

0C 

69 

STS4 

0C 

E9 

STS5 

0C 

EA 

BRKI 

0C 

EB 

VAZ 

0C 

EC 

VDC 

0C 

ED 

RES 

0C 

EE 

CAPA 

0C 

EF 

dnflg 

0C 

F0 

DSPLA 

0C 

FI 

DSPMS 

0C 

F2 

DN 

00 

F0 

IN  IT 

04 

00 

INBAY 

04 

34 

DFCKT 

04 

4D 

INCKT 

04 

53 

2TEST 

04 

O0 

RGFN 

04 

8D 

CHK 

04 

CA 

LONG 

04 

DA 

CKRT 

04 

E2 

CRT  1 

04 

EC 

ER 

05 

1A 

CKCNT 

05 

20 

l'.YLNT 

05 

3E 

BIHC 

05 

4F 

STROB 

05 

53 

ECHO 

05 

24 

OUTPT 

05 

83 

BACK 

05 

86 

CHECK 

05 

AC 

ERR 

05 

BB 

CKCK 

05 

C4 

BRKMN 

05 

CF 

AA 

05 

D4 

BKST 

05 

F9 

PPCNT 

06 

16 

PRCL 

06 

IE 

CIR 

06 

22 

PR 

06 

35 

PR  1 

06 

38 

FLT 

06 

54 

READ 

06 

5E 

RD1 

06 

63 

ONI'TT 

06 

6E 

2FNCT 

06 

83 

BB 

06 

09 

DREAD 

06 

A 1 

UH,T 

06 

AF 

2READ 

06 

08 

CAP 

06 

D2 

ERE 

06 

DB 

Q'R'FN 

06 

E0 

NG 

06 

F2 

MREAD 

06 

F5 

CRNG 

02 

01 

E*M 

02 

28 

FNSCN 

07 

2D 

PAIR 

02 

45 

HUNUS 

02 

4C 

ONE 

37 

4E 

ERMS 

07 

53 

DS2BY 

02 

61 

DSDE 

02 

65 

f*  ~ * 

07 

1 J 

L I . L 

J ( 

O.- 

*-r-*  • r • • 

3 < 

_/  O 

KEYED 

or 

CF 

LOOP 

07 

A2 

ROTAT 

37 

A 4 

KEYUP 

02 

B 1 

READU 

02 

B3 

ROSA 

07 

C3 

RD2HL 

07 

D5 

DBMS 

02 

DF 

DIMS 

02 

El 

DONE 

37 

EA 

**  ASSEMBLY  COMPLETE,  NO  ERRORS  1003  BYTES  ASSEMBLED  ** 
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